home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus Special 16
/
AMIGAplus Sonderheft 16 (1998)(ICP)(DE)[!].iso
/
pd
/
anwendungen
/
gpatch
/
examplescripts
/
updatemyprogram.installer
< prev
next >
Wrap
Text File
|
1998-03-01
|
3KB
|
74 lines
;$VER: Update_MyProgram V1
;written by Thomas Baust
;-------------------------------------------------
;Setze Variablen für leichtere Übersetzung
;-------------------------------------------------
(set #Ver ("1.3"))
(set #welc (cat "\n\nDies ist ein Update für MyProgram,\n"
"von Version 1x auf die Version "#Ver".\n\n"
"Für genauere Informationen lesen sie bitte die Dokumentation."))
(set #whereprog ("In welchem Verzeichnis ist `MyProgram`\ninstalliert ?"))
(set #helpwhereprog ("Das Hauptverzeichnis des Programmes, das upgedatet werden soll."))
(set #patch1_1 (cat "\n\nJetzt wird die Datei `")) ;Dateiname wird eingefügt
(set #patch1_2 (cat "`\nvon V")) ;Alte Version wird eingefügt
(set #patch1_3 (cat " auf V")) ;Neue Version wird eingefügt
(set #patch1_4 (cat " gepatcht."))
(set #ErrorMsg1_1 (cat "\n\nDas Patchen der Datei `")) ;Dateiname wird eingefügt
(set #ErrorMsg1_2 (cat "`\n ist fehlgeschlagen !!!"
"\n\n\nEntweder wurde das File nicht gefunden,\n"
"oder es ist bereits die Version ")) ;Neue Version wird eingefügt
(set #ErrorMsg1_3 (cat " oder höher"
"\noder diese Version ist nicht Updateberechtigt..."))
;-------------------------------------------------
; Vergleiche Versionen, und patche die Datei
; Verzeichnis, Datei, Neue Versionsnummer
;-------------------------------------------------
(procedure Update #dir #dat #nver
(set #dat2 (tackon #dir #dat))
(set #vernum1 (getversion #dat2))
(set #ver1 (/ #vernum1 65536))
(set #rev1 (- #vernum1 (* #ver1 65536) ) )
(message (cat #patch1_1 #dat #patch1_2 #ver1"."#rev1 #patch1_3 #nver #patch1_4))
(rename #dat2 (cat #dat2".old") (safe))
(set #patch (run (cat "gpatch "#dat2".old "#dat".patch "#dat2) (safe)))
(if (> #patch 0) (rename (cat #dat2".old") #dat2 (safe)))
(if (> #patch 0) (message (cat #ErrorMsg1_1 #dat #ErrorMsg1_2 #nver #ErrorMsg1_3)))
(delete (cat #dat2".old") (safe))
)
;-------------------------------------------------
;Starte Update
;-------------------------------------------------
(complete 0)
(message #welc)
(welcome)
;-------------------------------------------------
;Frage nach Verzeichnis des Programmes
;-------------------------------------------------
(set @default-dest (askdir (prompt #whereprog) (help #helpwhereprog) (default "ram:")))
(complete 10)
;-------------------------------------------------
;Update Hauptprogramm & Library
;-------------------------------------------------
(Update @default-dest "MyProgram" "1.3")
(complete 50)
(Update @default-dest "My.library" "1.3a")
(complete 100)
;-------------------------------------------------
;Fertig...
;-------------------------------------------------
(exit)